(bdf-directory-list): Different value for ms-dos.

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index af6d2a95151d3b73b222936492545de9eef630a6..7ef0ad30d6b8b5b2861b2dc37e824884f09e01b8 100644 (file)
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -34,7 +34,10 @@
 (eval-when-compile (require 'ps-mule))
 
 ;;;###autoload
-(defvar bdf-directory-list '("/usr/local/share/emacs/fonts/bdf")
+(defvar bdf-directory-list
+  (if (eq system-type 'ms-dos)
+      (list (expand-file-name "../fonts/bdf" invocation-directory))
+    '("/usr/local/share/emacs/fonts/bdf"))
   "*List of directories to search for `BDF' font files.
 The default value is '("/usr/local/share/emacs/fonts/bdf").")